home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / database / tickle15.zip / TKL.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-08-02  |  23KB  |  1,286 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Boolean  BOOLEAN006
  25.     Boolean  BOOLEAN007
  26.     Boolean  BOOLEAN008
  27.     Boolean  BOOLEAN009
  28.     Boolean  BOOLEAN010
  29.     Boolean  BOOLEAN011
  30.     Boolean  BOOLEAN012
  31.     Boolean  BOOLEAN013
  32.     Boolean  BOOLEAN014
  33.     Boolean  BOOLEAN015
  34.     Integer  INTEGER001
  35.     Integer  INTEGER002
  36.     Integer  INTEGER003
  37.     Integer  INTEGER004
  38.     Integer  INTEGER005
  39.     Integer  INTEGER006
  40.     Integer  INTEGER007
  41.     Real     REAL001
  42.     Real     REAL002
  43.     Real     REAL003
  44.     String   TSTRING001(49)
  45.     String   STRING002
  46.     String   STRING003
  47.     String   STRING004
  48.     String   STRING005
  49.     String   STRING006
  50.     String   STRING007
  51.     String   STRING008
  52.     String   STRING009
  53.     String   STRING010
  54.     String   STRING011
  55.     String   TSTRING012(24)
  56.     String   STRING013
  57.     String   STRING014
  58.     String   STRING015
  59.     String   STRING016
  60.     String   STRING017
  61.     String   STRING018
  62.     String   STRING019
  63.     String   STRING020
  64.     String   STRING021
  65.     String   STRING022
  66.     String   STRING023
  67.     String   STRING024
  68.     String   STRING025
  69.     String   STRING026
  70.     String   STRING027
  71.     String   STRING028
  72.     String   STRING029
  73.     String   STRING030
  74.     String   STRING031
  75.     String   STRING032
  76.     String   STRING033
  77.     String   STRING034
  78.     String   STRING035
  79.     Int      INT001
  80.     Int      INT002
  81.     Int      INT003
  82.     Int      INT004
  83.     Int      INT005
  84.     Int      INT006
  85.     Int      INT007
  86.     Int      INT008
  87.     Int      INT009
  88.     Int      INT010
  89.     Int      INT011
  90.     Int      INT012
  91.     Int      INT013
  92.     Int      INT014
  93.     Int      INT015
  94.     Int      INT016
  95.     Int      INT017
  96.     Int      INT018
  97.     Int      INT019
  98.     Int      INT020
  99.     Declare  Procedure PROC001()
  100.  
  101. ;------------------------------------------------------------------------------
  102.  
  103.     If ((STRING002 == "") || (STRING002 == "MENU")) BOOLEAN009 = 1
  104.     STRING010 = PPEPath() + LTrim(String(PcbNode()), " ") + ".FLG"
  105.     If (Exist(STRING010)) Delete STRING010
  106.     INT003 = 1
  107.     Gosub LABEL019
  108.     STRING026 = PPEPath() + "TKLTEXT" + LangExt()
  109.     Gosub LABEL044
  110.     If (DErr(0)) Then
  111.         Newline
  112.         PrintLn ReadLine(STRING026, 2)
  113.         Newline
  114.         PrintLn ReadLine(STRING026, 3)
  115.         Newline
  116.         Log "Cannot open TICKLE.DBF (DataBase) - Aborting", 0
  117.         Wait
  118.     Else
  119.         Gosub LABEL021
  120.         If (DErr(0)) Then
  121.             Newline
  122.             PrintLn ReadLine(STRING026, 4)
  123.             Newline
  124.             PrintLn ReadLine(STRING026, 3)
  125.             Newline
  126.             Log "Cannot open TICKLE.NDX (Index) - Aborting", 0
  127.             Wait
  128.         Else
  129.             Gosub LABEL005
  130.             Gosub LABEL049
  131.             If (STRING003 == "") Log "'Tickle File' entered by user", 0
  132.             If ((STRING002 == "MENU") || (STRING003 <> "")) Gosub LABEL014
  133.             Goto LABEL020
  134.             End
  135.             :LABEL001
  136.             STRING006 = ReplaceStr(STRING006, ",", " ")
  137.             If ((InStr(STRING006, "-") == 0) || (InStr(STRING006, "-") == 1)) Return
  138.             STRING017 = STRING006
  139.             STRING006 = ""
  140.             Tokenize STRING017
  141.             If (TokCount() == 0) Return
  142.             For INT008 = 1 To Len(STRING017)
  143.                 STRING018 = GetToken()
  144.                 If (STRING018 == "") Break
  145.                 If (InStr(STRING018, "-") == 0) Then
  146.                     STRING006 = STRING006 + STRING018 + " "
  147.                     Continue
  148.                 Endif
  149.                 STRING010 = Mid(STRING018, 1, InStr(STRING018, "-") - 1)
  150.                 If (STRING010 <> "") STRING011 = Mid(STRING018, InStr(STRING018, "-") + 1, Len(STRING018))
  151.                 INT009 = S2I(STRING010, 10)
  152.                 INT010 = S2I(STRING011, 10)
  153.                 If (INT009 < 1) Then
  154.                     If (INT009 == 0) STRING010 = STRING018
  155.                     Newline
  156.                     PrintLn ReadLine(STRING026, 26), STRING010, ReadLine(STRING026, 27)
  157.                     Newline
  158.                     Continue
  159.                 Endif
  160.                 If (INT010 > 24) Then
  161.                     Newline
  162.                     PrintLn ReadLine(STRING026, 26), INT010, ReadLine(STRING026, 27)
  163.                     Newline
  164.                     Continue
  165.                 Endif
  166.                 If (INT010 >= INT009) Then
  167.                     For INT005 = INT009 To INT010
  168.                         STRING006 = STRING006 + LTrim(I2S(INT005, 10), " ") + " "
  169.                     Next
  170.                     Continue
  171.                 Endif
  172.                 Newline
  173.                 PrintLn ReadLine(STRING026, 5), STRING018, ReadLine(STRING026, 6)
  174.             Next
  175.             Return
  176.             :LABEL002
  177.             STRING014 = PPEPath() + LTrim(String(PcbNode()), " ") + ".FLG"
  178.             If (Exist(STRING014)) Then
  179.                 FOpen 1, STRING014, 1, 0
  180.             Else
  181.                 FCreate 1, STRING014, 1, 0
  182.             Endif
  183.             BOOLEAN005 = 1
  184.             STRING010 = Chr(13) + "FLAG "
  185.             For INT007 = 1 To INT003 - 1
  186.                 STRING010 = STRING010 + TSTRING012(INT007) + " "
  187.                 BOOLEAN005 = 0
  188.                 If (Len(STRING010) > 230) Then
  189.                     FPutLn 1, STRING010
  190.                     STRING010 = Chr(13) + "FLAG "
  191.                 Endif
  192.             Next
  193.             FPutLn 1, STRING010
  194.             FClose 1
  195.             Return
  196.             :LABEL003
  197.             INT002 = 0
  198.             For INT007 = 2 To 25
  199.                 If (DGet(0, DName(0, INT007)) == "            ") Then
  200.                     INT002 = INT007 - 1
  201.                     Break
  202.                 Endif
  203.             Next
  204.             Return
  205.             :LABEL004
  206.             BOOLEAN014 = 0
  207.             For INT007 = 2 To 25
  208.                 If (Upper(Trim(DGet(0, DName(0, INT007)), " ")) == Upper(Trim(STRING002, " "))) Then
  209.                     BOOLEAN014 = 1
  210.                     Break
  211.                 Endif
  212.             Next
  213.             Return
  214.             :LABEL005
  215.             STRING007 = Upper(RTrim(U_Name(), " "))
  216.             DSeek 0, STRING007
  217.             If (DChkStat(0) == 0) Then
  218.                 Gosub LABEL003
  219.             Else
  220.                 SPrintLn ReadLine(STRING026, 7)
  221.                 INT007 = DRecCount(0) + 1
  222.                 DNew 0
  223.                 DLockR 0, INT007
  224.                 DBlank 0
  225.                 DPut 0, "usr_name", STRING007
  226.                 DAdd 0
  227.                 INT002 = 1
  228.             Endif
  229.             Return
  230.             :LABEL006
  231.             Newline
  232.             If (InStr(STRING002, "SHORLI")) Goto LABEL007
  233.             Select Case (STRING003)
  234.                 Case "138"
  235.                     DispFile PPEPath() + "pcbt138", 1 + 4
  236.                     Log "Insufficient time remaining to download (@OPTEXT@)", 0
  237.                 Case "159"
  238.